home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CommToolbox 1.1 / Interfaces / PInterfaces / ConnectionTools.p < prev    next >
Encoding:
Text File  |  1994-11-21  |  2.6 KB  |  130 lines  |  [TEXT/MPS ]
  1. {************************************************************
  2.     ConnectionTools.p
  3.     Pascal Interface to the Macintosh Libraries
  4.  
  5.         Copyright Apple Computer, Inc. 1988-1991
  6.         All rights reserved
  7. ************************************************************}
  8.  
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT ConnectionTools;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingConnectionTools}
  20. {$SETC UsingConnectionTools := 1}
  21.  
  22. {$I+}
  23. {$SETC ConnectionToolsIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingDialogs}
  26. {$I $$Shell(PInterfaces)Dialogs.p}
  27. {$ENDC}
  28. {$IFC UNDEFINED UsingConnections}
  29. {$I $$Shell(PInterfaces)Connections.p}
  30. {$ENDC}
  31. {$SETC UsingIncludes := ConnectionToolsIncludes}
  32.  
  33. CONST    
  34.  
  35. { messages for DefProc }
  36. cmInitMsg         =    0;
  37. cmDisposeMsg     =    1;
  38. cmSuspendMsg    =    2;
  39. cmResumeMsg     =    3;
  40. cmMenuMsg         =    4;
  41. cmEventMsg         =    5;
  42. cmActivateMsg     =    6;
  43. cmDeactivateMsg =    7;
  44.  
  45. cmIdleMsg         =    50;
  46. cmResetMsg         =    51; 
  47. cmAbortMsg         =    52;
  48.  
  49. cmReadMsg         =    100;
  50. cmWriteMsg         =    101;
  51. cmStatusMsg     =    102;
  52. cmListenMsg     =    103;
  53. cmAcceptMsg        =    104;
  54. cmCloseMsg         =    105;
  55. cmOpenMsg        =    106;
  56. cmBreakMsg         =     107;
  57. cmIOKillMsg        =    108;
  58. cmEnvironsMsg     =    109;
  59.  
  60. { new connection tool messages for ctb 1.1 }
  61. cmNewIOPBMsg            =    110;
  62. cmDisposeIOPBMsg        =    111;
  63. cmGetErrorStringMsg        =    112;
  64. cmPBReadMsg                =    113;
  65. cmPBWriteMsg            =    114;
  66. cmPBIOKillMsg            =    115;
  67.  
  68. {    messages for validate DefProc    }
  69. cmValidateMsg    =    0;
  70. cmDefaultMsg    =    1;
  71.  
  72. {    messages for Setup DefProc    }
  73. cmSpreflightMsg =     0;
  74. cmSsetupMsg        =    1;
  75. cmSitemMsg        =    2;
  76. cmSfilterMsg    =    3;
  77. cmScleanupMsg    =    4;
  78.  
  79. {    messages for scripting defProc    }
  80. cmMgetMsg        =    0;
  81. cmMsetMsg        =    1;
  82.  
  83. {    messages for localization defProc    }
  84. cmL2English        =    0;
  85. cmL2Intl        =    1;
  86.  
  87. {    private data constants }
  88. cdefType         =    'cdef';        { main connection definition procedure    }
  89. cvalType         =    'cval';        { validation definition procedure    }
  90. csetType         =    'cset';        { connection setup definition procedure    }
  91. clocType        =    'cloc';        { connection configuration localization defProc    }
  92. cscrType        =    'cscr';        { connection scripting defProc interfaces    }
  93.  
  94. cbndType        =    'cbnd';        { bundle type for connection }
  95. cverType        =    'vers';        
  96.  
  97. TYPE
  98. CMDataBufferPtr    =    ^CMDataBuffer;
  99. CMDataBuffer    =    RECORD
  100.     thePtr:    Ptr;
  101.     count:    LONGINT;
  102.     channel:    CMChannel;
  103.     flags:    CMFlags;
  104.  END;
  105.  
  106. CMCompletorPtr        =    ^CMCompletorRecord;
  107. CMCompletorRecord    =    RECORD
  108.     async:    BOOLEAN;
  109.     completionRoutine:    ProcPtr;
  110.  END;
  111.  
  112. {    Private Data Structure    }
  113.  
  114. CMSetupPtr         = ^CMSetupStruct;
  115. CMSetupStruct     = RECORD
  116.     theDialog:     DialogPtr;
  117.     count:    INTEGER;
  118.     theConfig:    Ptr;
  119.     procID:    INTEGER;        { procID of the tool    }
  120.  END;
  121.  
  122.  
  123.  
  124. {$ENDC} { UsingConnectionTools }
  125.  
  126. {$IFC NOT UsingIncludes}
  127.     END.
  128. {$ENDC}
  129.  
  130.